﻿<Serializable()> _
Public Class EproformaAdicional

#Region "           Atributos                       "
    Private _idEmpresa As Int32
    Private _descEmpresa As String
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idProforma As Int32
    Private _idProformaAdicional As Int32
    Private _idAdicional As Int32
    Private _descAdicional As String
    Private _monto As Decimal
    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32
    Private _tipoAdicional As String
    Private _tipoCasa As String
    Private _tituloAdicional As String
#End Region

#Region "           Propiedades                     "
    Public Property idEmpresa() As Int32
        Get
            Return _idEmpresa
        End Get
        Set(ByVal value As Int32)
            _idEmpresa = value
        End Set
    End Property
    Public Property descEmpresa() As String
        Get
            Return _descEmpresa
        End Get
        Set(ByVal value As String)
            _descEmpresa = value
        End Set
    End Property
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property
    Public Property idProformaAdicional() As Int32
        Get
            Return _idProformaAdicional
        End Get
        Set(ByVal value As Int32)
            _idProformaAdicional = value
        End Set
    End Property
    
    Public Property monto() As Decimal
        Get
            Return _monto
        End Get
        Set(ByVal value As Decimal)
            _monto = value
        End Set
    End Property
    
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property tipoAdicional() As String
        Get
            Return _tipoAdicional
        End Get
        Set(ByVal value As String)
            _tipoAdicional = value
        End Set
    End Property
    Public Property tipoCasa() As String
        Get
            Return _tipoCasa
        End Get
        Set(ByVal value As String)
            _tipoCasa = value
        End Set
    End Property
    Public Property idAdicional() As Int32
        Get
            Return _idAdicional
        End Get
        Set(ByVal value As Int32)
            _idAdicional = value
        End Set
    End Property
    Public Property tituloAdicional() As String
        Get
            Return _tituloAdicional
        End Get
        Set(ByVal value As String)
            _tituloAdicional = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idProforma As Int32, ByVal idAdicional As Int32, ByVal monto As Decimal, ByVal tipoAdicional As String, ByVal tipoCasa As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idAdicional = idAdicional
        Me.monto = monto
        Me.tipoAdicional = tipoAdicional
        Me.tipoCasa = tipoCasa
        Me.idUsuario = idUsuario
    End Sub

    Public Sub New(ByVal idAdiciona As Int32, ByVal codigoAdiciona As String, ByVal tituloAdicional As String, ByVal tipoAdicional As String, ByVal tipoCasa As String, ByVal monto As Decimal, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idProforma = idProforma
        Me.idAdicional = idAdicional
        Me.tituloAdicional = tituloAdicional
        Me.monto = monto
        Me.tipoAdicional = tipoAdicional
        Me.tipoCasa = tipoCasa
        Me.idUsuario = idUsuario
    End Sub
 
#End Region

End Class
